home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 19 / Tiger_Disk_019_19xx_Tiger-Crew-Disk_de_Side_A.d64 / beispielprog. 2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  893b  |  36 lines
  1. 20 poke53280,6:poke53281,6:print"[147]"
  2. 30 poke 646,0
  3. 40 if a=0 then a=1 : load "demo-sprites",8,1
  4. 50 print"  tiger-disk sprite-kurs"
  5. 100 poke 2040,14336/64:rem spritezeiger
  6. 110 poke 2041,14400/64:rem spritezeiger
  7. 120 poke 2042,14464/64:rem spritezeiger
  8. 130 poke 2043,14528/64:rem spritezeiger
  9. 140 poke 53264,0:rem x wert ueber 255
  10. 150 poke 53287,1:rem farbe hellblau
  11. 160 poke 53288,1:rem farbe hellblau
  12. 170 poke 53289,1:rem farbe hellblau
  13. 180 poke 53290,1:rem farbe hellblau
  14. 210 poke 53276,0:rem kein multicolor
  15. 220 poke 53269,15
  16. 1000 a=53249
  17. 1010 b=53248
  18. 1020 pokea,200:pokea+2,200
  19. 1030 pokea+4,200:pokea+6,200
  20. 1040 pokeb,124:pokeb+2,148
  21. 1050 pokeb+4,172:pokeb+6,196
  22. 1100 a%=-2:b%=-2:c%=-2:d%=-2
  23. 1200 poke b, peek(b)+(a%)
  24. 1210 poke b+2, peek(b+2)+(b%)
  25. 1220 poke b+4, peek(b+4)+(c%)
  26. 1230 poke b+6, peek(b+6)+(d%)
  27. 1300 if peek(b)=252 then a%=-2
  28. 1310 if peek(b+2)=252 then b%=-2
  29. 1320 if peek(b+4)=252 then c%=-2
  30. 1330 if peek(b+6)=252 then d%=-2
  31. 1340 if peek(b)=100 then a%=2
  32. 1350 if peek(b+2)=100 then b%=2
  33. 1360 if peek(b+4)=100 then c%=2
  34. 1370 if peek(b+6)=100 then d%=2
  35. 1380 goto1200
  36.